library(readxl)
reg <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Dataset and R Project/reg.xlsx")
View(reg)

plot(reg$`Victim Race`, reg$`White Perpretrator`)
cor(reg$`Victim Race`, reg$`White Perpretrator`)

mod<- lm( reg$`White Perpretrator`~reg$`Victim Race`)
summary (mod)

attributes(mod)
mod$coef
coef(mod)

plot(reg$`Victim Race`,reg$`White Perpretrator`, xlab="Victim Race", ylab="White Perpretrator",
     col="coral2", main="Regression")
abline(mod, col=1, lwd=1)
confint(mod)

